program prog;

type
   StudentRecord = Record
      apellido: String;
      nombre: String;
      telefono: String;
   end;
var
   Student: StudentRecord;
   f: file of StudentRecord;

begin
   Assign(f,'c:\temp\datosDos.dat');
   Rewrite(f);

   Student.apellido := 'Salado';
   Student.nombre := 'Dolores';
   Student.telefono := '669852145';
   Write(f,Student);

   Student.apellido := 'Arbiz';
   Student.nombre := 'Elena';
   Student.telefono := '655478541';
   Write(f,Student);

   Student.apellido := 'Muniesa';
   Student.nombre := 'Lina';
   Student.telefono := '666998877';
   Write(f,Student);

   Student.apellido := 'Herrero';
   Student.nombre := 'Carlos';
   Student.telefono := '665236984';
   Write(f,Student);

   Close(f);
end.
